1 IFA=1THENA=A+1:LOAD"DEMO PIC",8,1
2 IFA=2THEN7
3 POKE51,127:POKE52,151:POKE55,127:POKE56,151:CLR:A=1:Q=49152
4 POKE53280,0:POKE53281,0:PRINT"[147]   [211][195][210][197][197][206][160][211][204][201][196][197][210] FOR THE [195][207][205][205][207][196][207][210][197] 64"
5 PRINT,"[157][215]RITTEN BY [202]ASON [198]INCH":PRINT," [195]OPYRIGHT [195][196][213] 1990"
6 PRINT,"    [208]LEASE WAIT":LOAD"SLIDER CODE",8,1
7 SYSQ,1,1:SYSQ+6,3,24:POKE16383,0:POKE53280,5:POKE53281,11:PRINT"[147][158]",
8 PRINT"[172][162][187] [162][162] [162][162][187][172][162][162][187][162][162][162][172][187][172][187]",," [162][161][146][161][188][190]  [161][146][161]   [161] [190][146][161]",,
9 PRINT"[188][162][188][161][146][161]    [146][190][161][172][146][190]  [162][161][172] [146][161]",,"[187][146][162][172][146][188][188][190][146][190] [146][188][188][161][188][146][162][187] [146][162][162][161][146][161][161][146][161]
10 [153],"**RNDWAITRND WAIT  LOG WAITCOS RNDWAITRNDGET*NEWWAITCOS NEWLOG",,"WAITLOGLOGWAITNEW     GETLOGWAITRND  WAITNEW*",,
11 [153]"WAIT*RNDGETWAITGET   WAIT**GETWAITGET   RNDWAITRND",," NEWNEWNEWNEWNEWWAITLOGNEWWAITCOSNEWNEWWAIT LOGNEWNEWWAITCOSNEWNEW
12 PRINT"    [159][195]ODING AND DESIGN BY [202]ASON [198]INCH",,"    [150]([195]) [195][196][213] 1990"
13 SYSQ+3,1:SYSQ+6,1,24:FORT=1TO1500:NEXT:SYSQ+3,1:SYSQ+6,2,24
14 PRINT"[147][215]ELCOME TO [211]CREEN [211]LIDER",," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
15 PRINT" [201]T IS  OFTEN DESIRABLE  TO ENHANCE THE  PRESENTATION   OF  TEXT   SCREE";
16 PRINT"NS   OR  PROGRAMS THAT FEATURE TEXT AND GRAPHIC  INTEGRATION. [207]NE METHO";
17 PRINT"D FOR THIS IS TO  FADE OUT YOUR TEXT, BUT THIS CANNOT BE  DONE  SO  EAS";
18 PRINT"ILY[160] WITH ANY  BIT-MAPPED  AND POSSIBLY  MULTICOLOUR PICTURES.  [201]  HAVE";
19 PRINT" THEREFORE  EXTENDED  A [160]TECHNIQUE  KNOWN AS '[198]LEXIBLE [204]INE [196]ISTANCING' ";
20 PRINT"TO  PRODUCE A SMOOTH VERTICAL SCREEN SLIDE":SYSQ+3,1:GOSUB64:SYSQ,130,1
21 SYSQ+3,1:PRINT"[147] [217]OU HAVE NOW ALREADY SEEN THE SLIDE IN  OPERATION FIVE TI";
22 PRINT"MES.  [201]T CAN  INVOLVE  TEXT SCREENS  OR  BIT-MAPPED PICTURES,  WHETHER ";
23 PRINT"THEY ARE STANDARD OR DISPLAYED  IN  [155]MULTICOLOUR.  [212]HE  SLIDE  IS  ALSO";
24 PRINT"  COMPLETELY INDEPENDENT OF [156]CO[156]LO[156]UR[156]S  AND  WILL NOT MOVE SPRITES";
25 PRINT".  [201]T IS ACHIEVED  BY VARYING  THE  PHYSICAL POSITION  OF  THE TOP LINE";
26 PRINT" OF THE SCREEN DATA."," [207]PTIONALLY, [194][193][211][201][195] PROGRAMS  CAN REMAIN  IN  OP";
27 PRINT"ERATION  THROUGHOUT  THE  SLIDE."
28 POKE53282,7:POKE53283,0:POKE53270,216:SYSQ+3,1:GOSUB64:SYSQ,2,1:SYSQ+6,1,24
29 SYSQ+3,0:C=200:A=0:X=1:DX=1
30 POKE53270,C:C=416-C:PRINT""TAB(X)"[159] * ":X=X+DX:IFX=36ORX=1THENDX=-DX
31 IFPEEK(2)<>255THEN30
32 SYSQ+6,4,24:SYSQ,1,1:POKE53281,0:SYS38795:SYSQ+3,1:FORT=1TO3000:NEXT
33 SYSQ+6,2,24:SYSQ+3,1:POKE53265,23:POKE53272,23:POKE56576,63:POKE53270,200
34 POKE53280,10:POKE53281,2:T$="                                  "
35 T$=T$+"[197][206][196] [207][198] [211][195][210][197][197][206] [211][204][201][196][197][210] [196][197][205][207][206][211][212][210][193][212][201][207][206] "
36 SYSQ+6,2,24:PRINT"[147]","    [205]AIN [207]PTIONS",,,"    ------------"
37 PRINT,"[158][157][157][157]1. [211]AVE (AND RELOCATE) CODE"
38 PRINT,"[157][157][157]2. [210]ETURN TO [194][193][211][201][195]":SYSQ,1,0:SYSQ+3,0:FORT=1TO200:NEXT:IFF2=1THEN40
39 FORL=1TO34STEP1:PRINT"[155]  "MID$(T$,L,37):PRINTTAB(L+2)"=":NEXT:F2=1
40 IFPEEK(2)<>255THEN40
41 SYSQ,130,1:POKE198,0
42 GETA$:IFA$<"1"ORA$>"2"THEN42
43 SYSQ+3,1:PRINT"[147]":SYSQ+6,5,24:SYSQ,2,1:SYSQ+3,1:SYSQ+6,2,25:IFA$="1"THENF=0:GOTO45
44 POKE53280,14:POKE53281,6:PRINT"[147][154]	[142]READY.":SYSQ+3,1:PRINT"";:SYSQ,0:NEW
45 SYSQ+6,2,24:PRINT"[147] [197]NTER START ADDRESS OF SAVED CODE"," :[159]49152[157][157][157][157][157]";
46 IFF=0THENF=1:SYSQ+3,1:SYSQ,0
47 OPEN1,0:INPUT#1,A$:CLOSE1:A=VAL(A$):IFA<2048ORA>65160THEN45
48 IFA=49152THEN53
49 PRINT:PRINT" [208]LEASE WAIT",,," [193]LTERING CODE FOR RELOCATION":RESTORE:SYSQ+6,1,24
50 FORI=0TO52:READAD,N:AD=AD+49153:N=A+N:POKEAD,(N/256-INT(N/256))*256
51 POKEAD+1,N/256:NEXT:N=A+105:POKE49228,(N/256-INT(N/256))*256:POKE49230,N/256
52 IFS=1THENS=0:GOTO61
53 PRINT" [207][203]. [211]AVING CODE AS "CHR$(34)"[211][204][201][196][197][210]";
54 PRINTMID$(STR$(A),2)CHR$(34):OPEN15,8,15,"I0":OPEN2,8,1,"SLIDER"+MID$(STR$(A),2)+",P"
55 INPUT#15,E,A$,B,C:IFE<>0THEN58
56 PRINT#2,CHR$((A/256-INT(A/256))*256)CHR$(A/256);:FORI=49152TO49600
57 PRINT#2,CHR$(PEEK(I));:NEXT
58 CLOSE2:CLOSE15:IFE=0THEN63
59 PRINT"[147] [196][201][211][203] [197][210][210][207][210] [206]O."MID$(STR$(E),2)":":PRINT" "A$" @"B"[157],"C
60 S=1:A=Q:RESTORE:GOTO50
61 PRINT" [208]RESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0
62 SYSQ+6,6,24:SYSQ,2,1:SYSQ+3,1:GOTO36
63 PRINT"[147] [195]ODE SAVED WITHOUT ERROR.":GOTO60
64 C=62:POKE198,0:A=0:POKE781,23:POKE782,38:POKE783,0:SYS65520:PRINT"[156]>[157][146][148] "
65 A=A+1:IFA=10THENPOKE1983,C:C=252-C:A=0
66 GETA$:IFA$=""THEN65
67 RETURN
68 DATA0,263,3,334,6,411,36,50,61,46,71,106,114,52,117,44,122,48,129,48,134,44,149
69 DATA51,152,45,169,51,178,48,183,46,190,49,193,45,196,48,202,217,205,49,208,45
70 DATA211,48,217,48,226,48,232,49,235,52,242,52,263,251,266,46,289,9,293,251,302
71 DATA47,311,316,316,45,321,44,324,48,330,61,334,46,341,45,358,251,370,48,374,44
72 DATA386,47,391,9,394,275,397,46,402,46,407,305,411,251,421,251,434,49,445,50